home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / tpflex.zip / PICKF.DEM < prev    next >
Text File  |  1990-04-24  |  2KB  |  34 lines
  1. program pickfdemo;
  2. uses crt, pickf;
  3. var dir : PickFile;
  4. begin
  5.      TextBackground(BLUE);
  6.      clrscr;
  7.      writeln('The following is a demonstration of FlexList, CrtPlus, and OOPs.');
  8.      writeln('A generic PickList object is derived from FlexList in pick.pas');
  9.      writeln('The PickFile object is derived from PickList for directory listings.');
  10.      writeln('The crtplus unit is used for windowing in the PickFile object.');
  11.      writeln('PgUp, PgDn, and cursor arrows work as expected.');
  12.      writeln('Press "Enter" on a subdirectory to view that directory.');
  13.      writeln('Press "Enter" on ".." to return to parent directory.');
  14.      writeln('Press "Esc" to exit.');
  15.      writeln;
  16.      writeln('FlexList is a hybrid stack-queue-list-array generic object.  That');
  17.      writeln('means you can initialize an instance of a FlexList to hold any');
  18.      writeln('type of data.  A FlexList can be accessed as a stack, queue, list,');
  19.      writeln('or array interchangeably!');
  20.      writeln;
  21.      writeln('CrtPlus provides keyboard, screen, cursor, and window enhancements');
  22.      writeln('to Turbo''s crt unit.');
  23.      writeln;
  24.      writeln('Both FlexList and CrtPlus are available as shareware on BBS''s.');
  25.      writeln('Registered versions are $20 each and include manual and source code.');
  26.      writeln;
  27.      writeln('PSW / Power SoftWare');
  28.      writeln('P.O. Box 10072');
  29.      writeln('McLean, VA 22102 8072');
  30.      write('(703) 759-3838');
  31.      dir.init('*.*');
  32.      dir.query;
  33.      dir.done
  34. end.